/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Dev / Sas-PPC / stdarg.pch

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 0a d0 | 50 54 43 48 56 45 52 53 |FORM....|PTCHVERS|
|00000010| 00 00 00 24 00 00 03 00 | 53 41 53 20 49 6e 73 74 |...$....|SAS Inst|
|00000020| 69 74 75 74 65 2c 20 49 | 6e 63 2e 20 50 61 74 63 |itute, I|nc. Patc|
|00000030| 68 20 56 36 2e 35 35 00 | 49 4e 50 46 00 00 00 12 |h V6.55.|INPF....|
|00000040| 00 00 72 94 00 00 01 89 | 3a 73 74 64 61 72 67 2e |..r.....|:stdarg.|
|00000050| 68 00 4f 55 54 46 00 00 | 00 12 00 02 da ce 00 00 |h.OUTF..|........|
|00000060| 0b 15 2f 73 74 64 61 72 | 67 2e 68 00 50 53 45 51 |../stdar|g.h.PSEQ|
|00000070| 00 00 0a 64 75 ba 73 c6 | 69 0d 69 66 64 65 66 20 |...du.s.|i.ifdef |
|00000080| 5f 5f 50 50 43 5f 5f 82 | c7 2f 2a 20 66 6f 72 20 |__PPC__.|./* for |
|00000090| 49 0a 45 76 61 72 61 72 | 67 73 20 66 75 6e 63 73 |I.Evarar|gs funcs|
|000000a0| 2c 20 34 20 63 61 6c 6c | 69 65 20 73 61 76 65 64 |, 4 call|ie saved|
|000000b0| 20 72 65 67 69 73 74 65 | 72 73 20 61 72 65 20 72 | registe|rs are r|
|000000c0| 65 73 65 72 76 65 64 20 | 2a 2f 0a 2f 2a 20 61 6e |eserved |*/./* an|
|000000d0| 64 20 61 6c 6c 6f 63 61 | 74 65 64 20 62 79 20 74 |d alloca|ted by t|
|000000e0| 68 65 20 63 6f 6d 70 69 | 6c 65 72 20 61 73 20 66 |he compi|ler as f|
|000000f0| 6f 6c 6c 6f 77 73 3a 20 | 20 20 20 20 20 20 20 20 |ollows: |        |
|00000100| 20 20 20 20 20 20 20 2a | 2f 0a 2f 2a 20 20 20 72 |       *|/./*   r|
|00000110| 33 31 20 2d 20 63 75 72 | 72 65 6e 74 20 6f 66 66 |31 - cur|rent off|
|00000120| 73 65 74 20 74 6f 20 6e | 65 78 74 20 73 74 61 63 |set to n|ext stac|
|00000130| 6b 20 70 61 72 6d 20 20 | 20 20 20 20 20 20 20 20 |k parm  |        |
|00000140| 20 20 20 20 20 20 2a 2f | 0a 2f 2a 20 20 20 72 33 |      */|./*   r3|
|00000150| 30 20 2d 20 53 74 61 63 | 6b 20 6f 66 66 73 65 74 |0 - Stac|k offset|
|00000160| 20 77 68 65 72 65 20 72 | 65 67 73 20 61 72 65 20 | where r|egs are |
|00000170| 73 74 6f 72 65 64 20 61 | 74 20 65 6e 74 72 79 2c |stored a|t entry,|
|00000180| 20 20 20 20 20 2a 2f 0a | 2f 2a 20 20 20 20 20 20 |     */.|/*      |
|00000190| 20 20 20 72 33 2d 72 31 | 30 2c 20 66 6f 6c 6c 6f |   r3-r1|0, follo|
|000001a0| 77 65 64 20 62 79 20 66 | 72 31 2d 66 72 38 20 20 |wed by f|r1-fr8  |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 2a 2f 0a 2f | 2a 20 20 20 72 32 39 20 |    */./|*   r29 |
|000001d0| 2d 20 63 75 72 72 65 6e | 74 20 6f 66 66 73 65 74 |- curren|t offset|
|000001e0| 20 74 6f 20 6e 65 78 74 | 20 67 65 6e 65 72 61 6c | to next| general|
|000001f0| 20 72 65 67 20 70 61 72 | 6d 2e 20 53 77 69 74 63 | reg par|m. Switc|
|00000200| 68 20 20 2a 2f 0a 2f 2a | 20 20 20 20 20 20 20 20 |h  */./*|        |
|00000210| 20 74 6f 20 73 74 61 63 | 6b 20 62 61 73 65 64 20 | to stac|k based |
|00000220| 70 61 72 6d 20 77 68 65 | 6e 20 69 74 27 73 20 6c |parm whe|n it's l|
|00000230| 61 72 67 65 72 20 74 68 | 61 6e 20 20 20 20 20 20 |arger th|an      |
|00000240| 20 20 2a 2f 0a 2f 2a 20 | 20 20 20 20 20 20 20 20 |  */./* |        |
|00000250| 28 72 31 30 2d 72 33 29 | 2a 34 20 20 20 20 20 20 |(r10-r3)|*4      |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000280| 20 2a 2f 0a 2f 2a 20 20 | 20 72 32 38 20 2d 20 63 | */./*  | r28 - c|
|00000290| 75 72 72 65 6e 74 20 6f | 66 66 73 65 74 20 74 6f |urrent o|ffset to|
|000002a0| 20 6e 65 78 74 20 66 6c | 6f 61 74 69 6e 67 20 70 | next fl|oating p|
|000002b0| 6f 69 6e 74 20 72 65 67 | 20 70 61 72 6d 20 20 20 |oint reg| parm   |
|000002c0| 2a 2f 0a 2f 2a 20 20 20 | 20 20 20 20 20 20 73 77 |*/./*   |      sw|
|000002d0| 69 74 63 68 20 74 6f 20 | 73 74 61 63 6b 20 6f 66 |itch to |stack of|
|000002e0| 66 73 65 74 20 77 68 65 | 6e 20 69 74 27 73 20 6c |fset whe|n it's l|
|000002f0| 61 72 67 65 72 20 74 68 | 61 6e 20 20 20 20 20 2a |arger th|an     *|
|00000300| 2f 0a 2f 2a 20 20 20 20 | 20 20 20 20 20 28 72 31 |/./*    |     (r1|
|00000310| 30 2d 72 33 29 2a 34 2b | 28 66 72 38 2d 66 72 31 |0-r3)*4+|(fr8-fr1|
|00000320| 29 2a 38 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)*8     |        |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 2f |        |      */|
|00000340| 0a 2f 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |./*     |        |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2f 0a |        |     */.|
|00000380| 2f 2a 20 5f 5f 6f 70 74 | 79 70 65 20 20 69 73 20 |/* __opt|ype  is |
|00000390| 61 20 53 41 53 2f 43 20 | 63 6f 6d 70 69 6c 65 72 |a SAS/C |compiler|
|000003a0| 20 69 6e 74 65 72 6e 61 | 6c 20 66 75 6e 63 74 69 | interna|l functi|
|000003b0| 6f 6e 20 74 68 61 74 20 | 20 20 20 20 2a 2f 0a 2f |on that |    */./|
|000003c0| 2a 20 20 20 20 20 20 20 | 20 20 20 20 74 68 61 74 |*       |    that|
|000003d0| 20 65 76 61 6c 75 61 74 | 65 73 20 74 6f 3a 20 20 | evaluat|es to:  |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2f 0a 2f 2a |        |   */./*|
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 30 |        |       0|
|00000410| 20 20 3d 20 20 69 66 20 | 74 68 65 20 74 79 70 65 |  =  if |the type|
|00000420| 20 69 73 20 69 6e 74 20 | 74 79 70 65 20 6f 72 20 | is int |type or |
|00000430| 61 20 70 6f 69 6e 74 65 | 72 20 2a 2f 0a 2f 2a 20 |a pointe|r */./* |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 31 20 |        |      1 |
|00000450| 20 3d 20 20 69 66 20 74 | 68 65 20 74 79 70 65 20 | =  if t|he type |
|00000460| 69 73 20 61 20 66 6c 6f | 61 74 69 6e 67 20 70 6f |is a flo|ating po|
|00000470| 69 6e 74 20 74 79 70 65 | 20 2a 2f 0a 2f 2a 20 20 |int type| */./*  |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 20 20 |        |     2  |
|00000490| 3d 20 20 69 66 20 74 68 | 65 20 74 79 70 65 20 69 |=  if th|e type i|
|000004a0| 73 20 61 20 73 74 72 75 | 63 74 75 72 65 20 20 20 |s a stru|cture   |
|000004b0| 20 20 20 20 20 20 20 20 | 2a 2f 0a 2f 2a 20 20 20 |        |*/./*   |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004f0| 20 20 20 20 20 20 20 2a | 2f 0a 2f 2a 20 4e 6f 74 |       *|/./* Not|
|00000500| 65 20 2d 20 52 65 63 65 | 69 76 69 6e 67 20 61 20 |e - Rece|iving a |
|00000510| 73 74 72 75 63 74 20 62 | 79 20 76 61 6c 75 65 20 |struct b|y value |
|00000520| 69 6e 20 61 20 76 61 72 | 61 72 67 73 20 66 75 6e |in a var|args fun|
|00000530| 63 20 69 73 20 20 2a 2f | 0a 2f 2a 20 20 20 20 20 |c is  */|./*     |
|00000540| 20 20 20 6e 6f 74 20 79 | 65 74 20 73 75 70 70 6f |   not y|et suppo|
|00000550| 72 74 65 64 20 20 20 20 | 20 20 20 20 20 20 20 20 |rted    |        |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000570| 20 20 20 20 20 2a 2f 0a | 0a 0a 0a 76 6f 69 64 20 |     */.|...void |
|00000580| 5f 5f 62 75 69 6c 74 69 | 6e 5f 6d 73 67 28 63 68 |__builti|n_msg(ch|
|00000590| 61 72 20 2a 2c 20 2e 2e | 2e 29 3b 0a 6c 6f 6e 67 |ar *, ..|.);.long|
|000005a0| 20 5f 5f 62 75 69 6c 74 | 69 6e 5f 67 65 74 72 65 | __built|in_getre|
|000005b0| 67 28 69 6e 74 29 3b 0a | 76 6f 69 64 20 5f 5f 62 |g(int);.|void __b|
|000005c0| 75 69 6c 74 69 6e 5f 70 | 75 74 72 65 67 28 69 6e |uiltin_p|utreg(in|
|000005d0| 74 2c 20 6c 6f 6e 67 29 | 3b 0a 0a 23 64 65 66 69 |t, long)|;..#defi|
|000005e0| 6e 65 20 76 61 5f 73 74 | 61 72 74 28 61 2c 62 29 |ne va_st|art(a,b)|
|000005f0| 20 28 61 2e 5f 5f 76 61 | 5f 72 33 31 20 3d 20 5f | (a.__va|_r31 = _|
|00000600| 5f 62 75 69 6c 74 69 6e | 5f 67 65 74 72 65 67 28 |_builtin|_getreg(|
|00000610| 33 31 29 2c 20 5c 0a 20 | 20 20 20 20 20 20 20 20 |31), \. |        |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 2e |        |      a.|
|00000630| 5f 5f 76 61 5f 72 33 30 | 20 3d 20 5f 5f 62 75 69 |__va_r30| = __bui|
|00000640| 6c 74 69 6e 5f 67 65 74 | 72 65 67 28 33 30 29 2c |ltin_get|reg(30),|
|00000650| 20 5c 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | \.     |        |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 61 2e 5f 5f 76 61 |        |  a.__va|
|00000670| 5f 72 32 39 20 3d 20 5f | 5f 62 75 69 6c 74 69 6e |_r29 = _|_builtin|
|00000680| 5f 67 65 74 72 65 67 28 | 32 39 29 2c 20 5c 0a 20 |_getreg(|29), \. |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006a0| 20 20 20 20 20 20 61 2e | 5f 5f 76 61 5f 72 32 38 |      a.|__va_r28|
|000006b0| 20 3d 20 5f 5f 62 75 69 | 6c 74 69 6e 5f 67 65 74 | = __bui|ltin_get|
|000006c0| 72 65 67 28 32 38 29 29 | 0a 0a 23 64 65 66 69 6e |reg(28))|..#defin|
|000006d0| 65 20 76 61 5f 61 72 67 | 28 61 2c 62 29 20 5c 0a |e va_arg|(a,b) \.|
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 28 62 29 20 20 |        |   (b)  |
|000006f0| 20 20 28 28 5f 5f 6f 70 | 74 79 70 65 28 62 29 20 |  ((__op|type(b) |
|00000700| 3d 3d 20 30 20 29 20 3f | 20 5c 0a 20 2f 2a 20 70 |== 0 ) ?| \. /* p|
|00000710| 75 6c 6c 20 61 6e 20 69 | 6e 74 20 74 79 70 65 20 |ull an i|nt type |
|00000720| 2a 2f 28 28 61 29 2e 5f | 5f 76 61 5f 72 32 39 20 |*/((a)._|_va_r29 |
|00000730| 3c 20 28 31 31 2d 33 29 | 2a 34 20 3f 20 20 20 20 |< (11-3)|*4 ?    |
|00000740| 20 5c 0a 20 2f 2a 20 20 | 20 66 72 6f 6d 20 72 65 | \. /*  | from re|
|00000750| 67 20 61 72 65 61 20 2a | 2f 20 20 20 28 28 28 61 |g area *|/   (((a|
|00000760| 29 2e 5f 5f 76 61 5f 72 | 32 39 20 3d 20 28 61 29 |).__va_r|29 = (a)|
|00000770| 2e 5f 5f 76 61 5f 72 32 | 39 2b 34 29 2c 20 5c 0a |.__va_r2|9+4), \.|
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 28 6c |        |     *(l|
|00000790| 6f 6e 67 20 2a 29 20 20 | 20 20 28 28 61 29 2e 5f |ong *)  |  ((a)._|
|000007a0| 5f 76 61 5f 72 32 39 20 | 2b 20 28 61 29 2e 5f 5f |_va_r29 |+ (a).__|
|000007b0| 76 61 5f 72 33 30 20 2d | 20 34 29 29 20 3a 20 5c |va_r30 -| 4)) : \|
|000007c0| 0a 20 2f 2a 20 20 20 6f | 72 20 73 74 61 63 6b 20 |. /*   o|r stack |
|000007d0| 61 72 65 61 20 2a 2f 20 | 20 20 28 28 28 61 29 2e |area */ |  (((a).|
|000007e0| 5f 5f 76 61 5f 72 33 31 | 20 3d 20 28 61 29 2e 5f |__va_r31| = (a)._|
|000007f0| 5f 76 61 5f 72 33 31 2b | 34 29 2c 20 5c 0a 20 20 |_va_r31+|4), \.  |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 2a 28 6c 6f 6e |        |   *(lon|
|00000810| 67 20 2a 29 20 20 20 20 | 28 28 61 29 2e 5f 5f 76 |g *)    |((a).__v|
|00000820| 61 5f 72 33 31 20 2d 20 | 34 29 29 29 20 3a 20 5c |a_r31 - |4))) : \|
|00000830| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000840| 20 20 20 20 20 20 20 20 | 28 28 5f 5f 6f 70 74 79 |        |((__opty|
|00000850| 70 65 28 62 29 20 3d 3d | 20 32 29 20 3f 20 5c 0a |pe(b) ==| 2) ? \.|
|00000860| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 73 74 72 |        |  /* str|
|00000870| 75 63 74 73 20 62 79 20 | 76 61 6c 75 65 20 6e 6f |ucts by |value no|
|00000880| 74 20 79 65 74 20 73 75 | 70 70 6f 72 74 65 64 20 |t yet su|pported |
|00000890| 2a 2f 20 20 20 20 20 20 | 30 4c 20 3a 20 5c 0a 20 |*/      |0L : \. |
|000008a0| 2f 2a 20 70 75 6c 6c 20 | 61 6e 20 66 70 20 74 79 |/* pull |an fp ty|
|000008b0| 70 65 20 2a 2f 20 28 28 | 61 29 2e 5f 5f 76 61 5f |pe */ ((|a).__va_|
|000008c0| 72 32 38 20 3c 3d 20 28 | 31 31 2d 33 29 2a 34 2b |r28 <= (|11-3)*4+|
|000008d0| 28 38 2d 31 29 2a 38 2b | 34 20 3f 20 20 20 20 20 |(8-1)*8+|4 ?     |
|000008e0| 5c 0a 20 2f 2a 20 20 20 | 66 72 6f 6d 20 72 65 67 |\. /*   |from reg|
|000008f0| 20 61 72 65 61 20 2a 2f | 20 20 20 28 28 28 61 29 | area */|   (((a)|
|00000900| 2e 5f 5f 76 61 5f 72 32 | 38 20 3d 20 28 61 29 2e |.__va_r2|8 = (a).|
|00000910| 5f 5f 76 61 5f 72 32 38 | 2b 38 29 2c 20 5c 0a 20 |__va_r28|+8), \. |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 28 64 6f |        |    *(do|
|00000930| 75 62 6c 65 20 2a 29 20 | 20 28 28 61 29 2e 5f 5f |uble *) | ((a).__|
|00000940| 76 61 5f 72 32 38 20 2b | 20 28 61 29 2e 5f 5f 76 |va_r28 +| (a).__v|
|00000950| 61 5f 72 33 30 20 2d 20 | 38 29 29 20 3a 20 5c 0a |a_r30 - |8)) : \.|
|00000960| 20 2f 2a 20 20 20 6f 72 | 20 73 74 61 63 6b 20 61 | /*   or| stack a|
|00000970| 72 65 61 20 2a 2f 20 20 | 20 28 28 28 61 29 2e 5f |rea */  | (((a)._|
|00000980| 5f 76 61 5f 72 33 31 20 | 3d 20 28 61 29 2e 5f 5f |_va_r31 |= (a).__|
|00000990| 76 61 5f 72 33 31 2b 38 | 29 2c 20 5c 0a 20 20 20 |va_r31+8|), \.   |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 2a 28 64 6f 75 62 |        |  *(doub|
|000009b0| 6c 65 20 2a 29 20 20 28 | 28 61 29 2e 5f 5f 76 61 |le *)  (|(a).__va|
|000009c0| 5f 72 33 31 20 2d 20 38 | 29 29 29 29 29 0a 20 20 |_r31 - 8|))))).  |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009e0| 20 20 20 20 20 20 20 0a | 23 64 65 66 69 6e 65 20 |       .|#define |
|000009f0| 76 61 5f 65 6e 64 28 61 | 29 0a 0a 23 65 6c 73 65 |va_end(a|)..#else|
|00000a00| 0a 23 64 65 66 69 6e 65 | 20 76 61 5f 73 74 61 72 |.#define| va_star|
|00000a10| 74 28 61 2c 62 29 20 61 | 3d 28 63 68 61 72 20 2a |t(a,b) a|=(char *|
|00000a20| 29 28 26 62 2b 31 29 0a | 23 64 65 66 69 6e 65 20 |)(&b+1).|#define |
|00000a30| 76 61 5f 61 72 67 28 61 | 2c 62 29 20 20 28 2a 28 |va_arg(a|,b)  (*(|
|00000a40| 28 62 20 2a 29 20 28 28 | 61 20 2b 3d 20 20 28 28 |(b *) ((|a +=  ((|
|00000a50| 73 69 7a 65 6f 66 28 62 | 29 2b 73 69 7a 65 6f 66 |sizeof(b|)+sizeof|
|00000a60| 28 69 6e 74 29 2d 31 29 | 20 26 20 7e 28 73 69 7a |(int)-1)| & ~(siz|
|00000a70| 65 6f 66 28 69 6e 74 29 | 2d 31 29 29 20 20 20 29 |eof(int)|-1))   )|
|00000a80| 20 2d 20 20 28 28 73 69 | 7a 65 6f 66 28 62 29 2b | -  ((si|zeof(b)+|
|00000a90| 73 69 7a 65 6f 66 28 69 | 6e 74 29 2d 31 29 20 26 |sizeof(i|nt)-1) &|
|00000aa0| 20 7e 28 73 69 7a 65 6f | 66 28 69 6e 74 29 2d 31 | ~(sizeo|f(int)-1|
|00000ab0| 29 29 20 29 29 29 0a 23 | 64 65 66 69 6e 65 20 76 |)) ))).#|define v|
|00000ac0| 61 5f 65 6e 64 28 61 29 | 0a 23 65 6e 64 69 66 0a |a_end(a)|.#endif.|
|00000ad0| 0a 23 65 6e 64 69 66 0a |                         |.#endif.|        |
+--------+-------------------------+-------------------------+--------+--------+